Top 10k strings from Cribbage (1985)(Spectrum Computing).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Covertapes / Sinclair ZX Spectrum - Covertapes - [Z80] (TOSEC-v2007-01-01) /

Back to the directory listing

  11 ";s$(s);" ";s$(s);"
   8 ";s$(s);s$(s);s$(s);"
   7  ";s$(s);" 
   6 to=pr+nb+ft+rn+st:
   4 q(cp)=q(cp-1
   4 ;"GO for 1  ":
   4 ;"    PRESS A KEY
   2 r(l)=r(l+1
   2 r(i)=r(i+1
   2 f(i)+f(j)=15
   2 c(i)=d(i)-s*13
   2 a(i)=m(i):
   2 ;l$;" ";b$(1
   2 ;"Your hand scores ";to
   2 ;"My hand scores ";to
   2 ;"GAME OVER-you've won":
   2 ;"GAME OVER-I've won  ":
   2 ;" for ";ps;"    "
   2 ;" GAME   ";:
   2 ;"    GO ":
   1 v=v+yc*0.08
   1 v=v+f(i)/1000
   1 sc+f+f(j)=31
   1 s(i)=s(i+1
   1 r(i)=r(i+2
   1 r(i)=a(i)-13
   1 r(i)<r(i+1
   1 r(i)-r(j)=1
   1 r(d(i))<32
   1 q(cp)=q(cp-2
   1 p(l)=p(l+1
   1 p(l)<p(l+1
   1 p(k)=p(k+1
   1 m(k)=c(k):
   1 l$="OK I've chosen. Which two do youwant in the box"
   1 f(k)+f(l)>5
   1 f(k)+f(l)=5
   1 f(k)+f(l)=15
   1 f(k)+f(l)<15
   1 f(i)=f(i+1
   1 f(i)+f(j)=5
   1 c(j)=c(j+1
   1 c(aa)=d(k):
   1 Q";s$(s);" 
   1 K";s$(s);" 
   1 J";s$(s);" 
   1 CRIBBAGE BY P.ERENTZ 
   1 ;"by P.A.Erentz"
   1 ;"Your turn-which card? (G for GO)":
   1 ;"Your box, your deal"
   1 ;"Your box scores ";to
   1 ;"START THE TAPE":
   1 ;"Press Y to continue,N to choose again.":
   1 ;"Please study your hand whilst I choose my two cards for";:
   1 ;"My box scores ";to
   1 ;"2 FOR HIS NOB!":
   1 ;"1 for you ":
   1 ;" your box"
   1 ;" my box  "
   1 ;" CRIBBAGE ";
   1 ;"  Press P to play again or
   1 ;"  My box, my deal  "
   1 +f+f(j)=31
   1 );" and ";b$(2
   1 (q(cp)-q(cp-2
   1 (q(cp)-q(cp-1
   1 '"You play against the computer.  Cards score twice- First in playand again in the final count.   Every combination totaling 15   scores 2. Pairs score 2, trebles6, and four of a kind 12. Runs  score the number of cards in therun, and need not be played in  sequence. A flush only counts inthe final show of the hand."''"The scoring will be done by the computer, you will be pleased tohear!"
   1 '"An extra card is cut which can  be combined with any hand in thefinal show. If it's a Jack it   scores 2. First to 121 wins."
   1 "cribbage2"
   1 "You've won by ";121
   1 "You contribute 2 of your 6 cardsto the 'box', an extra hand thatscores for each player in alter-ation."''"During play you select a card bypressing the number appearing   above it. If you cannot play a  legal card then press 'G' for   'Go'. The running total of cardsplayed must not exceed 31. If   both players 'Go' than the last to play scores 1, unless exactly31 is reached, which scores 2.  The total goes back to zero and play continues till all cards   have been played."
   1 "I've won by ";121
   1 ";s$(s);" 
   1 "9";"PRESS A KEY": 
   1  Press a Key":
   1  Press L to LOAD next section"
   1  Press I for Instructions or
   1  PRESS ANY KEY TO BEGIN
   1  OVERALL SCORE 
   1  ";s$(s);"Q
   1  ";s$(s);"K
   1  ";s$(s);"J
   1  ";s$(s);"